| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-03-11 00:00:00 | President Donald Trump | District of Columbia | “Each of us has a role to play in defeating this virus” “I will never hesitate to take any necessary steps to protect the lives, health, and safety of the American people” | Official statements |
| 2020-03-12 22:47:00 | Asa Hutchinson | Arkansas | (2/4) The cases affect Pulaski, Saline, Jefferson & Grant counties. In an abundance of caution & after consulting w/@ADHPIO & @ArkansasEd, I’m advising schools in those counties to close for the next two weeks. School closing advisories will be determined on a case-by-case basis. | Social Media |
| 2020-03-15 01:34:52 | Asa Hutchinson | Arkansas | Thanks to all who have expressed concern about students in school. My public health professionals are following the guidance of the US Center for Disease Control. Wellbeing of students is always #1. | Social Media |
| 2020-03-22 00:19:43 | Asa Hutchinson | Arkansas | (2/3) This outbreak endangers lives & strains our economy. Our goal is to flatten the peak & reduce the spread. We need the people’s help. If we do what we are supposed to do in terms of social distancing & in taking care of ourselves & others, then we’ll reduce the trend line. | Social Media |
| 2020-03-31 21:24:10 | Asa Hutchinson | Arkansas | (3/3) This gives Arkansans an objective: to do our part by being self-disciplined, following @ADHPIO guidelines, limiting our social gatherings, and maintaining social distancing to beat projections. This will save lives and help us overcome this crisis more quickly. | Social Media |
| 2020-04-03 00:17:25 | Asa Hutchinson | Arkansas | @hogdawg44 Thanks for your question, Harvey. It’s up to individual businesses and plants to put responsible workplace screening measures into place. Employees should be encouraged to stay home when sick & to practice healthy habits both in & out of the workplace. #AskGovHutchinson | Social Media |
| 2020-04-06 22:47:51 | Asa Hutchinson | Arkansas | I have extended the closure of public schools through the remainder of the 2019-20 school year. Schools will continue to provide alternative methods of instruction (AMI). This is necessary for our students to be safe but let’s keep learning every day. https://t.co/3ViK85woAr | Social Media |
| 2020-04-09 00:12:17 | Asa Hutchinson | Arkansas | “Let me assure every Arkansan that we will do all that is necessary to protect life and to come out of this pandemic with our face looking into the bright days of our future.” See photos, video, & a transcript of today’s State of the State Address: https://t.co/ZNfBIZmP0k #arpx | Social Media |
| 2020-04-14 20:49:48 | Asa Hutchinson | Arkansas | As you can see in the attached graphs, Arkansas is flattening the curve, and our testing is increasing in capacity and performance. This is good news, but remember to keep social distancing, wearing masks, & washing hands to keep each other safe. https://t.co/ZgwKgKPA0H | Social Media |
| 2020-04-14 21:56:17 | Asa Hutchinson | Arkansas | Travel on our interstate highways has decreased by 55% from 1yr ago because of our efforts to temporarily discourage out-of-state travelers from visiting. Now, @myARDOT also uses message boards to alert travelers that recreational lodging for out-of-state visitors is prohibited. https://t.co/vPYAemGD70 | Social Media |
| 2020-06-10 22:09:37 | Asa Hutchinson | Arkansas | Throughout this pandemic, Arkansans have determined what is best for their health, and I am confident they will continue to do so as we enter in to Phase Two. (2/2) | Social Media |
| 2020-05-01 19:19:30 | Gavin Newsom | California | California waived the 1 week waiting period for Unemployment Insurance (UI) and State Disability Insurance (SDI) so workers can get the support they need quickly. | Social Media |
| 2020-05-04 17:30:19 | Gavin Newsom | California | Governor @GavinNewsom spoke with @KatieCouric for @TIME about CA’s Roadmap to Pandemic Resilience, which lays out how the state plans to modify its stay-at-home order based on science, health & data. #StayHomeSaveLives https://t.co/OCD3RP6IYE | Social Media |
| 2020-05-04 22:17:59 | Gavin Newsom | California | Governor @GavinNewsom announced that based on the state’s progress in meeting metrics tied to indicators, the state can begin to move into Stage 2 of modifying the stay at home order this Friday, May 8, with guidelines released Thursday, May 7. https://t.co/Lvsglrxdsp | Social Media |
| 2020-05-05 20:30:00 | Gavin Newsom | California |
Last week, Governor @GavinNewsom met with small businesses, employers & workers, like Marielle, to discuss #COVID19’s impact on the economy. CA will continue to prioritize public health & the safety of its workforce when it comes to modifying its stay-at-home order. https://t.co/BBIdKaPiQ3 |
Social Media |
| 2020-05-07 19:29:56 | Gavin Newsom | California | CA will begin moving into stage 2 of modifying the stay-at-home order starting tomorrow. This isn’t a return to normal. Retail, with curbside pickup, and associated supply chains can reopen with modifications that follow NEW state guidance. | Social Media |
| 2020-05-08 02:30:01 | Gavin Newsom | California | Californians, working together, have flattened the curve. Because of that work, health data shows the state can begin modifying the stay-at-home order & gradually begin to restart portions of the economy. | Social Media |
| 2020-05-08 19:28:47 | Gavin Newsom | California | We must continue to protect Californians from #COVID19. NEW: Under Governor Gavin Newsom’s new executive order, every registered voter in California will now receive a mail-in ballot. #YourActionsSaveLives | Social Media |
| 2020-05-08 20:42:21 | Gavin Newsom | California | “Elections and the right to vote are foundational to our democracy. No Californian should be forced to risk their health in order to exercise their right to vote.” - Governor @GavinNewsom https://t.co/vlCgoKuZLe | Social Media |
| 2020-05-10 17:00:30 | Gavin Newsom | California | Just because CA is modifying the stay-at-home order, does not mean things are going back to normal. <U+0001F6A8> Californians must continue to practice physical distancing & avoid congregating with others to stop the spread of #COVID19. #YourActionsSaveLives | Social Media |
| 2020-05-16 15:00:00 | Gavin Newsom | California | <U+2705> Weekend Checklist <U+2705> <U+0001F3E0>Gather only with people in your household <U+0001F637>Stay home if you are sick <U+0001F3C3><U+200D><U+2640><U+FE0F>If you are participating in local recreation, keep 6 feet of distance #YourActionsSaveLives | Social Media |
| 2020-05-18 19:19:07 | Gavin Newsom | California | Governor @GavinNewsom announced new criteria counties must meet to move ahead including: <U+0001F3E5>Hospitalization rates that don’t increase more than 5% over 7 days <U+0001F4C9>Less than 25 #COVID19 cases per 100k residents over the last 14 days. Learn more: https://t.co/zE4jpFXT1Z https://t.co/9kPpiLcojb | Social Media |
| 2020-05-21 22:30:07 | Gavin Newsom | California | Even though California is beginning to move into stage 2 of reopening, the Stay-at-Home order is still in place. This Memorial Day weekend, stay close to home and avoid gathering with people outside of your household to stop the spread of #COVID19. #YourActionsSaveLives https://t.co/GbF1cFsYT0 | Social Media |
| 2020-05-22 21:30:00 | Gavin Newsom | California | Our decisions will determine our fate and future. As you move into this beautiful weekend, please stay close to home and, if you do go out, do so responsibly & safely to prevent the spread of #COVID19. #YourActionsSaveLives https://t.co/1b8Fvqk2Oe | Social Media |
| 2020-05-24 15:30:00 | Gavin Newsom | California | Kids know the rules. This weekend is not the time to have people over to your home, even for small gatherings like a backyard BBQ. #YourActionsSaveLives https://t.co/CSgFLaW82n | Social Media |
| 2020-05-25 20:01:01 | Gavin Newsom | California | .@CAPublicHealth announced the statewide reopening of places of worship for religious services and in-store retail shopping. Modifications are required to keep Californians safe and limit the spread of #COVID19. #YourActionsSaveLives Learn more: https://t.co/48ZAhw2Iwl | Social Media |
| 2020-05-25 20:30:00 | Gavin Newsom | California | We know that fatigue is setting in, but let’s stay strong. #COVID19 is still spreading. Physical distancing outdoors is one step we can take to protect our communities. #YourActionsSaveLives https://t.co/r9dDk4ecdU | Social Media |
| 2020-06-15 19:22:34 | Gavin Newsom | California | Test positivity rates in California have decreased but that DOES NOT mean #COVID19 has stopped spreading! We must continue to practice physical distancing, wash our hands, wear a face covering & stay home when possible. It’s up to us to slow the spread. #YourActionsSaveLives https://t.co/W9Vm7kBe2n | Social Media |
| 2020-06-21 22:00:12 | Gavin Newsom | California | Yes - you have to wear a mask even if the store you are going to is really small and only 1 person works there and no one else is there. #YourActionsSaveLives https://t.co/XvLt35FuoB | Social Media |
| 2020-03-17 17:15:30 | Doug Burgum | North Dakota | #SocialDistancing: Look below to see what this means for you. This is especially important on St. Patrick’s Day, when you might be accustomed to going out to celebrate with friends. We all have a role to play in slowing the spread of coronavirus. https://t.co/k4LsKbZMP4 | Social Media |
| 2020-03-12 22:28:32 | Doug Ducey | Arizona | There is no greater priority than the health and safety of our kids. My thanks to @Supt_Hoffman for her partnership and her work with @DrCaraChrist and public health officials to keep #AZ students, educators and staff safe and healthy. @azedschools https://t.co/kd5YFSjhZH | Social Media |
| 2020-03-16 19:55:18 | Doug Ducey | Arizona | There’s no greater priority than the health and safety of Arizonans. I’m working with @AZDHS and @DrCaraChrist to review the updated guidance from @CDCgov to ensure that #AZ complies and provides guidance to all Arizonans. https://t.co/x40M56wJQn | Social Media |
| 2020-04-01 12:04:14 | Doug Ducey | Arizona | Let me make my expectations clear: No family, individual or small business should face eviction or lose critical services because of hardships caused by #COVID19. It’s basic decency. 4/ | Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-03-08 02:29:55 | Gavin Newsom | California | California is ordering state-regulated health insurance companies to waive the out-of-pocket costs for Coronavirus testing. https://t.co/u9Q7kW4OyG | Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-04-21 21:58:04 | Doug Burgum | North Dakota | Care19 is now available for Android! This contact tracing app developed for COVID-19 is completely voluntary and developed with a privacy-first mindset. Over 20,000 users have already downloaded Care19, which has also been updated today. Download it now! https://t.co/JlGCmdKsqD https://t.co/1xr8FEHxRW | Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-03-22 21:32:10 | Asa Hutchinson | Arkansas | (3/4) We are looking at purchasing from the internatl. market, manufacturing our own, & working w/FEMA to release more of the strategic natl. stockpile to AR. While we’re working very hard on this procurement, Arkansans need to understand the current challenge that we face. | Social Media |
| 2020-03-24 23:06:32 | Asa Hutchinson | Arkansas | We have received 24 pallets of personal protective equipment (PPE)—including 27,800 N95 masks—from the Natl. Strategic Stockpile. Combined w/an order we’ll receive this weekend, this will cover us for the next 60 days at the current usage rate. We will continue to buy PPE. | Social Media |
| 2020-04-02 22:28:17 | Asa Hutchinson | Arkansas | @amsam412 Each state does receive a supply of PPE from the federal stockpile, but it’s not enough to meet Arkansas’s needs. That’s why I authorized $75 million for Arkansas to purchase PPE for our hospitals and health care workers. #AskGovHutchinson | Social Media |
| 2020-05-12 01:40:11 | Gavin Newsom | California | To safely return to work, people need access to protective gear!<U+0001F637><U+0001F9E4> Last week, @Cal_OES delivered more than 11 million surgical masks to schools & educators, farm workers, social workers, grocery workers & transit workers. As #COVID19 continues, Californians will be protected. https://t.co/b0JJMoAquq | Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-03-22 00:19:43 | Asa Hutchinson | Arkansas | (2/3) This outbreak endangers lives & strains our economy. Our goal is to flatten the peak & reduce the spread. We need the people’s help. If we do what we are supposed to do in terms of social distancing & in taking care of ourselves & others, then we’ll reduce the trend line. | Social Media |
| 2020-03-27 21:58:05 | Asa Hutchinson | Arkansas | (3/3) In order to do that, I have to enlist the support of every Arkansan to not gather in social groups of more than 10, to practice social distancing, and to follow the directives of @ADHPIO. We need everyone’s assistance. | Social Media |
| 2020-04-14 20:49:48 | Asa Hutchinson | Arkansas | As you can see in the attached graphs, Arkansas is flattening the curve, and our testing is increasing in capacity and performance. This is good news, but remember to keep social distancing, wearing masks, & washing hands to keep each other safe. https://t.co/ZgwKgKPA0H | Social Media |
| 2020-05-08 19:28:47 | Gavin Newsom | California | We must continue to protect Californians from #COVID19. NEW: Under Governor Gavin Newsom’s new executive order, every registered voter in California will now receive a mail-in ballot. #YourActionsSaveLives | Social Media |
| 2020-05-16 15:00:00 | Gavin Newsom | California | <U+2705> Weekend Checklist <U+2705> <U+0001F3E0>Gather only with people in your household <U+0001F637>Stay home if you are sick <U+0001F3C3><U+200D><U+2640><U+FE0F>If you are participating in local recreation, keep 6 feet of distance #YourActionsSaveLives | Social Media |
| 2020-05-21 22:30:07 | Gavin Newsom | California | Even though California is beginning to move into stage 2 of reopening, the Stay-at-Home order is still in place. This Memorial Day weekend, stay close to home and avoid gathering with people outside of your household to stop the spread of #COVID19. #YourActionsSaveLives https://t.co/GbF1cFsYT0 | Social Media |
| 2020-05-22 21:30:00 | Gavin Newsom | California | Our decisions will determine our fate and future. As you move into this beautiful weekend, please stay close to home and, if you do go out, do so responsibly & safely to prevent the spread of #COVID19. #YourActionsSaveLives https://t.co/1b8Fvqk2Oe | Social Media |
| 2020-05-25 20:30:00 | Gavin Newsom | California | We know that fatigue is setting in, but let’s stay strong. #COVID19 is still spreading. Physical distancing outdoors is one step we can take to protect our communities. #YourActionsSaveLives https://t.co/r9dDk4ecdU | Social Media |
| 2020-06-21 22:00:12 | Gavin Newsom | California | Yes - you have to wear a mask even if the store you are going to is really small and only 1 person works there and no one else is there. #YourActionsSaveLives https://t.co/XvLt35FuoB | Social Media |
| 2020-03-17 17:15:30 | Doug Burgum | North Dakota | #SocialDistancing: Look below to see what this means for you. This is especially important on St. Patrick’s Day, when you might be accustomed to going out to celebrate with friends. We all have a role to play in slowing the spread of coronavirus. https://t.co/k4LsKbZMP4 | Social Media |
| 2020-04-01 12:04:14 | Doug Ducey | Arizona | Let me make my expectations clear: No family, individual or small business should face eviction or lose critical services because of hardships caused by #COVID19. It’s basic decency. 4/ | Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-03-09 00:00:00 | Governor Asa Hutchinson | Arkansas | (5/5) We take this COVID-19 outbreak seriously & are taking precautions. But I’m keeping my normal schedule & we should continue to do business; go to school & enjoy a beautiful spring. | Social Media |
| 2020-03-12 00:00:00 | Governor Asa Hutchinson | Arkansas | (2/2) For months, AR has been preparing to respond to COVID-19. We’re taking measures to mitigate the spread of the virus. Practice healthy habits, wash your hands frequently, & stay home if you’re not feeling well. Beyond that, continue to conduct business & normal activities. | Social Media |
| 2020-03-15 21:57:48 | Asa Hutchinson | Arkansas | (3/3) As a result of these concerns, I have ordered the closure of on-site instruction of AR public schools, effective Tuesday, March 17 through the end of spring break. At that time, we will return to normal classroom instruction, unless the circumstances dictate otherwise. | Social Media |
| 2020-03-16 17:53:11 | Asa Hutchinson | Arkansas | (3/3) I discourage unnecessary out-of-state travel during this time of mitigation. This is to slow the spread of COVID-19 for when students and educators return to school after spring break, if circumstances allow. | Social Media |
| 2020-03-16 17:53:11 | Asa Hutchinson | Arkansas | (2/3) We received new CDC guidelines that there should be no indoor events greater than 50 people. I emphasize that this is an event-restriction recommendation. Restaurants and other businesses will continue to operate. | Social Media |
| 2020-03-20 21:27:36 | Asa Hutchinson | Arkansas | Doing my part to encourage social distancing within the community while supporting our local businesses in AR. Thanks to @TazikisCantrell for this wonderful carry-out lunch! https://t.co/wDJOqMNgC8 | Social Media |
| 2020-03-21 00:10:00 | Asa Hutchinson | Arkansas | According to the CDC, the best way to prevent the spread of COVID-19 is to avoid being exposed to the virus. COVID-19 is thought to spread between people within 6 feet of each other. By practicing social distancing, we can help mitigate the outbreak in our state. | Social Media |
| 2020-03-21 14:45:00 | Asa Hutchinson | Arkansas | Protecting Arkansas’s workforce and businesses from the COVID-19 outbreak is a top priority. Arkansas businesses can follow these guidelines to ensure the safety of their employees and the continuation of their operations. https://t.co/bmIUdr9f8V | Social Media |
| 2020-03-21 20:02:36 | Asa Hutchinson | Arkansas | Social distancing does not have to mean staying in the home, although this is an effective way to mitigate the spread of COVID-19. Walking, hiking, fishing, and other outdoor activities are all consistent with social distancing practices. | Social Media |
| 2020-03-22 00:19:43 | Asa Hutchinson | Arkansas | (3/3) And we will not have to take the extreme measures that we see in other states. We will not stop all business & we will get back to normal more quickly. | Social Media |
| 2020-03-22 20:00:00 | Asa Hutchinson | Arkansas | As COVID-19 spreads, it is important for Arkansans to follow the CDC’s guidelines to keep themselves and their families safe. I encourage the people of our state to practice the CDC’s current recommendation to avoid social gatherings of 10+ to help mitigate the virus. | Social Media |
| 2020-04-02 22:13:27 | Asa Hutchinson | Arkansas | @luvmyhub I don’t plan to give a shelter-in-place order right now. Currently, AR is ˜400 cases below projections, thanks to Arkansans efforts to mitigate spread & because of our targeted approach to closures. I’ll continue to follow guidance from health experts & reevaluate as needed. | Social Media |
| 2020-04-02 22:15:03 | Asa Hutchinson | Arkansas | @dbishop4152 I’ll continue to follow guidance from health experts & reevaluate shelter-in-place options as needed. Currently, AR is well below projected cases, thanks to Arkansans efforts to mitigate spread & because of our targeted approach to closures. #AskGovHutchinson | Social Media |
| 2020-04-03 00:21:36 | Asa Hutchinson | Arkansas | @KaribethDavis We hope to return to business as usual as soon as possible, but we will continue to evaluate the situation and follow the guidance from health experts at the state and federal level. #AskGovHutchinson | Social Media |
| 2020-04-17 21:22:50 | Asa Hutchinson | Arkansas | (1/2) I have carefully reviewed @realDonaldTrump’s model for reopening the economy & the first report of the Governor’s Medical Advisory Committee for Post-Peak COVID-19 Response. Based on Arkansas’s current public health data, we hope to begin lifting some restrictions by May 4. | Social Media |
| 2020-04-21 22:35:00 | Asa Hutchinson | Arkansas | Today I announced the creation of the COVID-19 Testing Working Group to ensure Arkansas has adequate tests and processes in place as we pursue our public-health and economic recovery strategies. I joined the working group’s first meeting this afternoon. https://t.co/aETnUswqbP | Social Media |
| 2020-04-28 22:30:35 | Asa Hutchinson | Arkansas | .@ARStatePark will begin a limited reopening of some facilities for Arkansas residents starting May 1. I am pleased that we can give Arkansans the opportunity to get out of their homes to safely enjoy our natural resources again. https://t.co/zTSfmDvkfg | Social Media |
| 2020-04-29 22:37:39 | Asa Hutchinson | Arkansas | Restaurants in AR may resume limited (33%) dine-in services on May 11 under guidelines that require daily health screening of staff, use of masks & gloves, and strict social distancing. This is a significant but cautious step on the path back to normalcy. https://t.co/pEUlm3sLSu https://t.co/SfupCWl0UT | Social Media |
| 2020-05-01 22:03:36 | Asa Hutchinson | Arkansas | (2/2) We’ve all felt the absence of these services recently, & professionals are eager to resume their work. I have great confidence that our stylists & other professionals will work hard to protect themselves & their clients & still provide the highest quality of service. | Social Media |
| 2020-05-05 21:42:27 | Asa Hutchinson | Arkansas | I’ve extended our COVID public health & disaster emergency for another 45days. Every industry sector in AR has been affected by the crisis. It’s important that we continue to support & protect our industries & people until the threat is no longer imminent. https://t.co/2aN22N0GwR | Social Media |
| 2020-05-07 21:52:10 | Asa Hutchinson | Arkansas | (1/3) Today at my daily COVID update briefing, I announced that the state’s 3 gaming casinos will open at 1:30pm on May 18. The casinos will open at 1/3 capacity and will enforce strict social distancing. This is another industry that we are able to safely reopen during Phase 1. | Social Media |
| 2020-06-10 22:09:37 | Asa Hutchinson | Arkansas | After consultation with my public health team, I announced that we will expand economic opportunity with public health guidelines and enter Phase Two of our economic recovery. (1/2) | Social Media |
| 2020-03-17 04:19:28 | Gavin Newsom | California | Governor Gavin Newsom issued an executive order authorizing local governments to halt evictions for renters and homeowners, slows foreclosures, and protects against utility shutoffs for Californians affected by #COVID19. https://t.co/7iykh5l06n | Social Media |
| 2020-05-01 00:26:46 | Gavin Newsom | California | Governor @GavinNewsom signed an executive order today that will allow adults to obtain marriage licenses via videoconferencing rather than in person amidst the #COVID19 pandemic. <U+0001F492><U+0001F935><U+0001F3FD><U+200D><U+2640><U+FE0F><U+0001F470><U+0001F3FF><U+0001F935><U+0001F3FB><U+200D><U+2642><U+FE0F> #CaliforniaForAll https://t.co/3YY7hTHISG | Social Media |
| 2020-05-01 17:04:46 | Gavin Newsom | California |
CA is working towards a more equitable future for service workers. @CALWDA & @onefairwage have launched #highroadkitchens, a first-in-the-nation initiative to provide grants for restaurants that agree to reopen & rehire employees at a livable wage. https://t.co/qFBq90DIo7 |
Social Media |
| 2020-05-06 02:12:14 | Gavin Newsom | California |
As CA begins the gradual move into Stage 2 on Friday, we know that industries must reopen in ways that continue to protect public health. <U+0001F4FD><U+FE0F> Today, Governor @GavinNewsom met with business owners & manufacturers to discuss reopening safely. #COVID19 https://t.co/OV7rDGQmGK |
Social Media |
| 2020-05-10 20:30:05 | Gavin Newsom | California | #COVID19 has financially impacted Californians across the state. CA must begin to gradually reopen its economy & put paychecks in people’s pockets.The state’s new industry guidance outlines the requirements for businesses to responsibly & safely reopen: https://t.co/snYe5vmHg6 https://t.co/qNkWgBFAq3 | Social Media |
| 2020-05-20 02:30:01 | Gavin Newsom | California | .@CAPublicHealth announced a new attestation opportunity for counties to reopen additional sectors of their economy at their own pace. Read more on the new criteria for counties to move faster into stage 2. <U+2B07><U+FE0F> https://t.co/Pp2gbbSI1w | Social Media |
| 2020-03-26 23:37:08 | Doug Burgum | North Dakota | With ND’s primary election on the horizon, we’re looking out for the well-being of voters and poll workers. We issued an executive order waiving the requirement for a physical polling location if a county chooses to conduct voting by mail. Read the order: https://t.co/QEtT3C94LR | Social Media |
| 2020-04-07 00:05:42 | Doug Burgum | North Dakota | To protect the most vulnerable and slow the spread, I also signed executive orders requiring self-quarantine for positive cases of COVID-19 & their household members, as well as an executive order suspending visitation to long-term care facilities. https://t.co/YcaQeDyWiX | Social Media |
| 2020-04-15 22:58:35 | Doug Burgum | North Dakota | Meanwhile, we will develop a path forward for a graduated reopening process past Apr. 30. We’re on the right track, but we are not far enough down that track to safely lift restrictions. We’ll continue to take a measured approach & targeted actions to save lives and livelihoods. | Social Media |
| 2020-04-15 22:58:35 | Doug Burgum | North Dakota | To continue to slow the spread of coronavirus and protect the health and safety of all North Dakotans including business owners, their employees and customers, we’re extending access restrictions on certain businesses by 10 days through April 30. https://t.co/IScFpOH7YI | Social Media |
| 2020-05-29 22:55:29 | Doug Burgum | North Dakota | North Dakota is moving to the next phase of its #NDSmartRestart plan, as the state continues to see a high rate of testing per capita, a low positive test rate and adequate hospital capacity to handle potential COVID-19 case surges. Check out the details: https://t.co/aQgHuimXzv | Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-03-22 00:00:00 | President Donald Trump | District of Columbia | “Based on analysis of potential needs for hospital beds on the West Coast, the decision was made that the USNS hospital ship Mercy would have the greatest impact in California.” “Now, will [the medicine] work? I think it has a really good chance. I think it’s worthwhile. Why should we be testing it in a test tube for a year and a half when we have thousands of people that are very sick? They’re very, very sick. And we can use it on those people, and maybe make them better, and in some cases maybe saved their lives.” “We need to prioritize our healthcare workers [for testing, over undocumented people]” | Official statements |
| 2020-03-24 20:00:00 | Asa Hutchinson | Arkansas | I issued Executive Order 20-05 to leverage telehealth in AR during the COVID-19 outbreak. A doctor can now establish a new patient over the phone. This will minimize the number of sick patients in waiting rooms, which will mitigate the spread of the virus. https://t.co/LrCcGWF3dE | Social Media |
| 2020-03-25 21:50:36 | Asa Hutchinson | Arkansas | (2/4) In order to expand the number of available physicians and nurses, we have taken action. The AR State Medical Board granted emergency temporary licenses to AR medical residents who have completed at least 1 year of internship. These residents’ licensing fees will be waived. | Social Media |
| 2020-03-26 22:38:35 | Asa Hutchinson | Arkansas | (1/4) Today I announced a $116M initiative that directly addresses the COVID-19 crisis & the burden on our rural hospitals & other health care providers. This proposal will provide improved access to care for citizens & will keep providers open & their workforce employed. | Social Media |
| 2020-03-27 21:58:05 | Asa Hutchinson | Arkansas | (1/3) I have authorized 10 additional National Guard personnel to assist the AR Dept. of Health and Corps of Engineers in expanding the capacity of hospital beds in AR. This is to get ahead of the curve & make sure we don’t have to make difficult choices down the road. | Social Media |
| 2020-04-03 00:15:36 | Asa Hutchinson | Arkansas | @rockyblonde I understand your concern. We must consider the patient’s history in deciding whom to test. But for those whose symptoms worsen or linger, by all means, get tested. #AskGovHutchinson | Social Media |
| 2020-04-06 23:45:14 | Asa Hutchinson | Arkansas | Thank you to @uamshealth and @ADHPIO for supporting my request to send five ventilators to Louisiana. I just spoke to @LouisianaGov, and he thanked the people of Arkansas. | Social Media |
| 2020-05-14 00:30:05 | Gavin Newsom | California | Increasing testing capacity = Protecting public health Governor @GavinNewsom announced that pharmacists will be able to collect specimens for #COVID19 tests, order tests for consumers & have them processed at public health, university or commercial labs. https://t.co/GoNlaV5OTT | Social Media |
| 2020-05-20 20:31:10 | Gavin Newsom | California | “It’s not a blue state or a red state issue.” Governor @GavinNewsom joined @NewsHour to discuss the important role the federal government has in protecting public health and public safety across all states in the face of #COVID19. | Social Media |
| 2020-05-27 16:05:37 | Gavin Newsom | California | Every vulnerable life at risk, every first responder striving to defend it & every person who has put their faith in our collective safety are all counting on us to protect lives & livelihoods. Federal support for states & cities will help do just that. https://t.co/sm4gZNt32O | Social Media |
| 2020-03-21 00:33:26 | Doug Burgum | North Dakota | By cutting red tape & streamlining services, state government can better serve North Dakotans & provide relief during this stressful time. Today I signed 3 executive orders addressing unemployment insurance, burdensome regulations & expanding telehealth. https://t.co/Vik3yKk8Rk | Social Media |
| 2020-03-22 00:10:45 | Doug Burgum | North Dakota | To expand the availability of COVID-19 testing, I signed an executive order authorizing licensed pharmacists to administer tests in collaboration with @NDDOH. It also streamlines the process for essential prescription medication refills during this crisis. | Social Media |
| 2020-04-09 23:14:19 | Doug Burgum | North Dakota | Just had a great call with our friend and neighbor, Minnesota @GovTimWalz, and we agree: There’s no “us and them,” only “we.” Our states share a river, communities and health care systems, and we’ll continue to work together in the fight against COVID-19. (1/2) | Social Media |
| 2020-03-25 16:27:09 | Doug Ducey | Arizona | Access to health care is crucial at a time like this. I’m issuing an Executive Order requiring health care insurance companies to expand telemedicine coverage for all services that would normally be covered for an in-person visit. MORE: https://t.co/QXLooIbyyO #COVID19 1/ | Social Media |
| 2020-03-26 20:25:17 | Doug Ducey | Arizona | Many Arizona professionals continue to work, while following the guidance of public health. And we are working to make sure licensed professionals can work w/out needing to meet impractical licensing requirements. See my new Executive Order here: https://t.co/D6mAFTThzg #COVID19 | Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-06-13 01:30:02 | Gavin Newsom | California | El rastreo de contactos es una forma simple y anónima de hacer tu parte. Entre más rápido pueda comunicarse contigo el departamento de salud, más rápido te podrá brindar apoyo y hacer la prueba. Juntos podemos reducir la propagación del #COVID19. | Social Media |
| 2020-06-22 23:00:00 | Gavin Newsom | California | Contact tracing can help #SlowtheSpread of #COVID19 in your community. <U+0001F4C9> If you test positive, your local health department can connect you with confidential medical treatment regardless of medical or immigration status. #YourActionsSaveLives | Social Media |
| 2020-03-23 21:02:56 | Doug Ducey | Arizona |
#COVID19 Today, I’m issuing an Executive Order for enhanced surveillance, requiring commercial labs to provide laboratory specimens for in-depth analysis and sequencing. Commercial labs will also provide denominator data on their testing. 1/ https://t.co/4Ouz66WXgx |
Social Media |
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| Date | Person | State | Text | Source |
|---|---|---|---|---|
| 2020-03-20 21:54:00 | Asa Hutchinson | Arkansas | (3/5) We are canceling the ACT Aspire & other yearly assessments for this spring under the waiver announced earlier today by the Trump administration & Secretary DeVos. This will allow educators to focus on providing the best education possible to students during this outbreak. | Social Media |
| 2020-03-21 00:10:00 | Asa Hutchinson | Arkansas | According to the CDC, the best way to prevent the spread of COVID-19 is to avoid being exposed to the virus. COVID-19 is thought to spread between people within 6 feet of each other. By practicing social distancing, we can help mitigate the outbreak in our state. | Social Media |
| 2020-03-21 20:02:36 | Asa Hutchinson | Arkansas | Social distancing does not have to mean staying in the home, although this is an effective way to mitigate the spread of COVID-19. Walking, hiking, fishing, and other outdoor activities are all consistent with social distancing practices. | Social Media |
| 2020-03-22 20:00:00 | Asa Hutchinson | Arkansas | As COVID-19 spreads, it is important for Arkansans to follow the CDC’s guidelines to keep themselves and their families safe. I encourage the people of our state to practice the CDC’s current recommendation to avoid social gatherings of 10+ to help mitigate the virus. | Social Media |
| 2020-05-20 20:31:10 | Gavin Newsom | California | “It’s not a blue state or a red state issue.” Governor @GavinNewsom joined @NewsHour to discuss the important role the federal government has in protecting public health and public safety across all states in the face of #COVID19. | Social Media |
| 2020-05-27 16:05:37 | Gavin Newsom | California | Every vulnerable life at risk, every first responder striving to defend it & every person who has put their faith in our collective safety are all counting on us to protect lives & livelihoods. Federal support for states & cities will help do just that. https://t.co/sm4gZNt32O | Social Media |
| 2020-03-21 00:33:26 | Doug Burgum | North Dakota | By cutting red tape & streamlining services, state government can better serve North Dakotans & provide relief during this stressful time. Today I signed 3 executive orders addressing unemployment insurance, burdensome regulations & expanding telehealth. https://t.co/Vik3yKk8Rk | Social Media |
| 2020-03-22 00:10:45 | Doug Burgum | North Dakota | To expand the availability of COVID-19 testing, I signed an executive order authorizing licensed pharmacists to administer tests in collaboration with @NDDOH. It also streamlines the process for essential prescription medication refills during this crisis. | Social Media |
| 2020-03-26 23:37:08 | Doug Burgum | North Dakota | With ND’s primary election on the horizon, we’re looking out for the well-being of voters and poll workers. We issued an executive order waiving the requirement for a physical polling location if a county chooses to conduct voting by mail. Read the order: https://t.co/QEtT3C94LR | Social Media |
| 2020-04-01 23:25:36 | Doug Burgum | North Dakota | Today, I signed an executive order waiving the mandatory 1-week waiting period for unemployment benefits as claims continue to increase. This is critical to helping out-of-work North Dakotans who are struggling to make ends meet during the COVID-19 crisis. https://t.co/rccbC7I7lw | Social Media |
| 2020-04-07 00:05:42 | Doug Burgum | North Dakota | To protect the most vulnerable and slow the spread, I also signed executive orders requiring self-quarantine for positive cases of COVID-19 & their household members, as well as an executive order suspending visitation to long-term care facilities. https://t.co/YcaQeDyWiX | Social Media |
| 2020-03-23 21:02:56 | Doug Ducey | Arizona |
#COVID19 Today, I’m issuing an Executive Order for enhanced surveillance, requiring commercial labs to provide laboratory specimens for in-depth analysis and sequencing. Commercial labs will also provide denominator data on their testing. 1/ https://t.co/4Ouz66WXgx |
Social Media |
| 2020-03-25 16:27:09 | Doug Ducey | Arizona | Access to health care is crucial at a time like this. I’m issuing an Executive Order requiring health care insurance companies to expand telemedicine coverage for all services that would normally be covered for an in-person visit. MORE: https://t.co/QXLooIbyyO #COVID19 1/ | Social Media |
| 2020-03-26 20:25:17 | Doug Ducey | Arizona | Many Arizona professionals continue to work, while following the guidance of public health. And we are working to make sure licensed professionals can work w/out needing to meet impractical licensing requirements. See my new Executive Order here: https://t.co/D6mAFTThzg #COVID19 | Social Media |
| 2020-03-26 20:59:33 | Doug Ducey | Arizona | Arizona is waiving emissions testing for those 65 and older to help encourage social distancing and protect the health of our seniors. More information: https://t.co/o8Fka2AvxG #COVID19 @ArizonaDEQ | Social Media |
---
title: "COVID-Messaging Dashboard"
date: "2020-07"
output:
flexdashboard::flex_dashboard:
orientation: columns
source_code: embed
vertical_layout: fill
theme: "cerulean"
---
```{r setup, include=FALSE}
library(plyr)
library(leaflet)
library(leafpop)
library(purrr)
library(plotly)
library(sf)
library(cartogram)
library(scales)
library(sjmisc)
library(shiny)
# library(albersusa)
library(highcharter)
library(dplyr)
library(viridisLite)
library(forecast)
library(treemap)
library(flexdashboard)
library(kableExtra)
library(rtweet) # Used for extracting the tweets
library(tm) # Text mining cleaning
library(stringr) # Removing characters
library(qdapRegex) # Removing URLs
library(wordcloud2)
library(wordcloud)
library(ggwordcloud)
`%>%` <- dplyr::`%>%`
data("usgeojson")
# Load plotting data
# load("~/Dropbox (Yale_FES)/YPCCC_19XW/Crockett/Prototype/R_Dashboard/plot_data.rda")
load("plot_data.rda")
st.tweets <- tweet.counts[!duplicated(tweet.counts$state),]
names(st.tweets)[names(st.tweets)=='name'] <- 'name.governor'
st.tweets <- st.tweets %>%
filter(state %in% c("Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado",
"Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho",
"Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana",
"Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota",
"Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire",
"New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota",
"Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island",
"South Carolina", "South Dakota", "Tennessee", "Texas", "Utah",
"Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin",
"Wyoming")) %>%
select(state, party, name.governor, n)
```
Classifed Tweets Display
=======================================================================
Column {.tabset}
-----------------------------------------------------------------------
### Lockdown vs Economy
#### Deontological %
```{r}
# thm <-
# hc_theme(
# chart = list(
# backgroundColor = "transparent",
# style = list(fontFamily = "Source Sans Pro")
# ),
# xAxis = list(
# gridLineWidth = 1)
# )
# Map tweets volumn
# highchart() %>%
# hc_add_series_map(usgeojson, st.tweets, name = "State",
# value = "n", joinBy = c("woename", "state"),
# dataLabels = list(enabled = TRUE,
# format = '{point.properties.postalcode}')) %>%
# # hc_colorAxis(stops = colstops) %>%
# hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
# hc_mapNavigation(enabled = TRUE) %>%
# hc_add_theme(thm)
n <- 5
stops1 <- data.frame(q = 0:n/n,
c = brewer_pal(palette = "Greens")(6),
stringsAsFactors = FALSE)
util.stops <- list_parse2(stops1)
stops2 <- data.frame(q = 0:n/n,
c = brewer_pal(palette = "Purples")(6),
stringsAsFactors = FALSE)
deon.stops <- list_parse2(stops2)
s.plot <- s.state %>%
filter(variable=="lockdown vs. opening the economy")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
value = "deon.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, deon_text, format, `lockdown vs. opening the economy`) %>%
filter(!is.na(deon_text)) %>%
filter(`lockdown vs. opening the economy` == "D") %>%
select(-`lockdown vs. opening the economy`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'deon_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Medical Care
#### Deontological %
```{r}
s.plot <- s.state %>%
filter(variable=="rationing medical care")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
value = "deon.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, deon_text, format, `rationing medical care`) %>%
filter(!is.na(deon_text)) %>%
filter(`rationing medical care` == "D") %>%
select(-`rationing medical care`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'deon_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Contact Tracing
#### Deontological %
```{r}
s.plot <- s.state %>%
filter(variable=="contact tracing & surveillance")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
value = "deon.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, deon_text, format, `contact tracing & surveillance`) %>%
filter(!is.na(deon_text)) %>%
filter(`contact tracing & surveillance` == "D") %>%
select(-`contact tracing & surveillance`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'deon_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Vaccine Enforcement
#### Deontological %
```{r}
s.plot <- s.state %>%
filter(variable=="vaccine enforcement")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
value = "deon.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, deon_text, format, `vaccine enforcement`) %>%
filter(!is.na(deon_text)) %>%
filter(`vaccine enforcement` == "D") %>%
select(-`vaccine enforcement`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'deon_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### PPE
#### Deontological %
```{r}
s.plot <- s.state %>%
filter(variable=="PPE/Healthcare allocation")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
value = "deon.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, deon_text, format, `PPE/Healthcare allocation`) %>%
filter(!is.na(deon_text)) %>%
filter(`PPE/Healthcare allocation` == "D") %>%
select(-`PPE/Healthcare allocation`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'deon_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Other
#### Deontological %
```{r}
s.plot <- s.state %>%
filter(variable=="Other")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
value = "deon.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, deon_text, format, `Other`) %>%
filter(!is.na(deon_text)) %>%
filter(`Other` == "D") %>%
select(-`Other`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'deon_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
Column {.tabset}
-----------------------------------------------------------------------
### Lockdown vs Economy
#### Consequentialist %
```{r}
s.plot <- s.state %>%
filter(variable=="lockdown vs. opening the economy")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
value = "util.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, util_text, format, `lockdown vs. opening the economy`) %>%
filter(!is.na(util_text)) %>%
filter(`lockdown vs. opening the economy` == "U") %>%
select(-`lockdown vs. opening the economy`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'util_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Medical Care
#### Consequentialist %
```{r}
s.plot <- s.state %>%
filter(variable=="rationing medical care")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
value = "util.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, util_text, format, `rationing medical care`) %>%
filter(!is.na(util_text)) %>%
filter(`rationing medical care` == "U") %>%
select(-`rationing medical care`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'util_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Contact Tracing
#### Consequentialist %
```{r}
s.plot <- s.state %>%
filter(variable=="contact tracing & surveillance")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
value = "util.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, util_text, format, `contact tracing & surveillance`) %>%
filter(!is.na(util_text)) %>%
filter(`contact tracing & surveillance` == "U") %>%
select(-`contact tracing & surveillance`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'util_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Vaccine Enforcement
#### Consequentialist %
```{r}
s.plot <- s.state %>%
filter(variable=="vaccine enforcement")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
value = "util.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, util_text, format, `vaccine enforcement`) %>%
filter(!is.na(util_text)) %>%
filter(`vaccine enforcement` == "U") %>%
select(-`vaccine enforcement`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'util_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### PPE
#### Consequentialist %
```{r}
s.plot <- s.state %>%
filter(variable=="PPE/Healthcare allocation")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
value = "util.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, util_text, format, `PPE/Healthcare allocation`) %>%
filter(!is.na(util_text)) %>%
filter(`PPE/Healthcare allocation` == "U") %>%
select(-`PPE/Healthcare allocation`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'util_text')
kable(df.display) %>%
kable_styling() %>%
scroll_box(width='550px')
```
### Other
#### Consequentialist %
```{r}
s.plot <- s.state %>%
filter(variable=="Other")
highchart() %>%
hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
value = "util.pct", joinBy = c("woename", "State_name"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.postalcode}')) %>%
hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_smpl())
```
#### Tweets/Statements
```{r}
df.display <- df %>%
select(date, source_person, State_name, util_text, format, `Other`) %>%
filter(!is.na(util_text)) %>%
filter(`Other` == "U") %>%
select(-`Other`) %>%
rename('Date' = 'date', 'Person' = 'source_person',
'State' = 'State_name', 'Source' = 'format',
'Text' = 'util_text')
kable(df.display) %>%
kable_styling("striped") %>%
scroll_box(width='550px')
```
```{r}
# https://juliasilge.com/blog/tidy-text-classification/
```
Wordcloud
=======================================================================
Column {.tabset}
-----------------------------------------------------------------------
### Lockdown vs Economy
#### Deontological
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, deon_text, format, `lockdown vs. opening the economy`) %>%
filter(!is.na(deon_text)) %>%
filter(`lockdown vs. opening the economy` == "D")
df.text1$deon_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$deon_text))
df.text <- df.text1$deon_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
# wordcloud2(data = textCorpus, minRotation = 0, maxRotation = 0, ellipticity = 0.6, shape = "circle", color = rep_len(brewer.pal(9, "Purples"), nrow(textCorpus)))
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(rm_outside = TRUE, eccentricity = 1, area_corr_power = 1) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#BCBDDC", "#9E9AC8", "#807DBA",
"#6A51A3", "#54278F", "#3F007D")) +
theme_minimal()
```
### Medical Care
#### Deontological
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, deon_text, format, `rationing medical care`) %>%
filter(!is.na(deon_text)) %>%
filter(`rationing medical care` == "D")
df.text1$deon_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$deon_text))
df.text <- df.text1$deon_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#BCBDDC", "#9E9AC8", "#807DBA",
"#6A51A3", "#54278F", "#3F007D")) +
theme_minimal()
```
### Contact Tracing
#### Deontological
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, deon_text, format, `contact tracing & surveillance`) %>%
filter(!is.na(deon_text)) %>%
filter(`contact tracing & surveillance` == "D")
df.text1$deon_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$deon_text))
df.text <- df.text1$deon_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#BCBDDC", "#9E9AC8", "#807DBA",
"#6A51A3", "#54278F", "#3F007D")) +
theme_minimal()
```
### Vaccine Enforcement
#### Deontological
```{r, eval=FALSE}
df.text1 <- df %>%
select(date, source_person, State_name, deon_text, format, `vaccine enforcement`) %>%
filter(!is.na(deon_text)) %>%
filter(`vaccine enforcement` == "D")
df.text1$deon_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$deon_text))
df.text <- df.text1$deon_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#BCBDDC", "#9E9AC8", "#807DBA",
"#6A51A3", "#54278F", "#3F007D")) +
theme_minimal()
```
### PPE
#### Deontological
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, deon_text, format, `PPE/Healthcare allocation`) %>%
filter(!is.na(deon_text)) %>%
filter(`PPE/Healthcare allocation` == "D")
df.text1$deon_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$deon_text))
df.text <- df.text1$deon_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#BCBDDC", "#9E9AC8", "#807DBA",
"#6A51A3", "#54278F", "#3F007D")) +
theme_minimal()
```
### Other
#### Deontological
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, deon_text, format, `Other`) %>%
filter(!is.na(deon_text)) %>%
filter(`Other` == "D")
df.text1$deon_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$deon_text))
df.text <- df.text1$deon_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#BCBDDC", "#9E9AC8", "#807DBA",
"#6A51A3", "#54278F", "#3F007D")) +
theme_minimal()
```
Column {.tabset}
-----------------------------------------------------------------------
### Lockdown vs Economy
#### Consequentialist
```{r}
# devtools::install_github("gaospecial/wordcloud2")
# library(wordcloud2)
## Wordcloud not display - try ggwordcloud
# https://cran.r-project.org/web/packages/ggwordcloud/vignettes/ggwordcloud.html
df.text1 <- df %>%
select(date, source_person, State_name, util_text, format, `lockdown vs. opening the economy`) %>%
filter(!is.na(util_text)) %>%
filter(`lockdown vs. opening the economy` == "U")
# remove parentheses and text within
df.text1$util_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$util_text))
df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all(" \\(.*\\)") %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
# wordcloud2(data = textCorpus, minRotation = 0, maxRotation = 0, ellipticity = 0.6, shape = "circle", color = rep_len(rev(brewer.pal(9, "Greens")), nrow(textCorpus)))
# # screenshot the wordcloud and display as a png (not working)
# markdown_widget <- function(widget,path=getwd(),filename="file.png"){
# require(htmlwidgets)
# require(webshot)
# saveWidget(widget,"tmp.html",selfcontained = F)
# file <- paste(path,filename,sep = "/")
# webshot("tmp.html",file,delay = 5,vwidth = 1024,vheight = 768)
# file.remove("tmp.html")
# paste0("\n\n") %>% cat()
# }
#
# widget <- wordcloud2(data = textCorpus, minRotation = 0, maxRotation = 0, ellipticity = 0.6, shape = "circle", color = rep_len(rev(brewer.pal(9, "Greens")), nrow(textCorpus)))
# markdown_widget(widget,path=".",filename="wordcloud.png")
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#A1D99B", "#74C476", "#41AB5D",
"#238B45", "#006D2C", "#00441B")) +
theme_minimal()
```
### Lockdown vs Economy
#### Consequentialist
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, util_text, format, `lockdown vs. opening the economy`) %>%
filter(!is.na(util_text)) %>%
filter(`lockdown vs. opening the economy` == "U")
df.text1$util_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$util_text))
df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
# wordcloud2(data = textCorpus, minRotation = 0, maxRotation = 0, ellipticity = 0.6, shape = "circle", color = rep_len(brewer.pal(9, "Purples"), nrow(textCorpus)))
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#A1D99B", "#74C476", "#41AB5D",
"#238B45", "#006D2C", "#00441B")) +
theme_minimal()
```
### Medical Care
#### Consequentialist
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, util_text, format, `rationing medical care`) %>%
filter(!is.na(util_text)) %>%
filter(`rationing medical care` == "U")
df.text1$util_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$util_text))
df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#A1D99B", "#74C476", "#41AB5D",
"#238B45", "#006D2C", "#00441B")) +
theme_minimal()
```
### Contact Tracing
#### Consequentialist
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, util_text, format, `contact tracing & surveillance`) %>%
filter(!is.na(util_text)) %>%
filter(`contact tracing & surveillance` == "U")
df.text1$util_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$util_text))
df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#A1D99B", "#74C476", "#41AB5D",
"#238B45", "#006D2C", "#00441B")) +
theme_minimal()
```
### Vaccine Enforcement
#### Consequentialist
```{r, eval=FALSE}
df.text1 <- df %>%
select(date, source_person, State_name, util_text, format, `vaccine enforcement`) %>%
filter(!is.na(util_text)) %>%
filter(`vaccine enforcement` == "U")
df.text1$util_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$util_text))
df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#A1D99B", "#74C476", "#41AB5D",
"#238B45", "#006D2C", "#00441B")) +
theme_minimal()
```
### PPE
#### Consequentialist
```{r, eval=FALSE}
df.text1 <- df %>%
select(date, source_person, State_name, util_text, format, `PPE/Healthcare allocation`) %>%
filter(!is.na(util_text)) %>%
filter(`PPE/Healthcare allocation` == "U")
df.text1$util_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$util_text))
df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#A1D99B", "#74C476", "#41AB5D",
"#238B45", "#006D2C", "#00441B")) +
theme_minimal()
```
### Other
#### Consequentialist
```{r}
df.text1 <- df %>%
select(date, source_person, State_name, util_text, format, `Other`) %>%
filter(!is.na(util_text)) %>%
filter(`Other` == "U")
df.text1$util_text <- gsub("\\s*\\([^\\)]+\\)","",as.character(df.text1$util_text))
df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")
df.text <-
df.text %>%
str_remove("\\n") %>% # remove linebreaks
rm_twitter_url() %>% # Remove URLS
rm_url() %>%
str_remove_all("#\\S+") %>% # Remove any hashtags
str_remove_all("@\\S+") %>% # Remove any @ mentions
removeWords(stopwords("english")) %>% # Remove common words (a, the, it etc.)
removeNumbers() %>%
stripWhitespace() %>%
removeWords(c("amp")) # Final cleanup of other small changes
textCorpus <-
Corpus(VectorSource(df.text)) %>%
TermDocumentMatrix() %>%
as.matrix()
textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)
textCorpus$color <- cut(textCorpus$freq, 5)
ggplot(textCorpus, aes(label=word, size=freq, color=color)) +
geom_text_wordcloud_area(shape="circle", rm_outside = TRUE) +
scale_size_area(max_size = 10) +
scale_color_manual(values =c("#A1D99B", "#74C476", "#41AB5D",
"#238B45", "#006D2C", "#00441B")) +
theme_minimal()
```
Lollipop
=======================================================================
```{r, fig.width=10, fig.height=8}
library(ggplot2)
library(dplyr)
library(hrbrthemes)
ggplot(s.state) +
geom_segment( aes(x=variable, xend=variable, y=deon.pct, yend=util.pct), color="grey") +
geom_point( aes(x=variable, y=deon.pct), color="#54278f", size=3 ) +
geom_point( aes(x=variable, y=util.pct), color="#5aae61", size=3 ) +
theme_ipsum() +
facet_wrap(~State_name, nrow = 3)+
coord_flip()+
xlab("") +
ylab("Purple - deontological % | Green - consequentialist %") +
theme(legend.position = "none", axis.text = element_text(size=12), strip.text = element_text(size=15))
```